Option Explicit
'OҲ ChartEventCls
Public WithEvents myCht As Chart
Private Sub myCht_Deactivate()
    MsgBox Me.myCht.Name & "wgOActive]ҥΡ^AFC"
End Sub

'зǼҲ
Dim myChtCls As New ChartEventCls
Sub InitializeChartEvent()
    Set myChtCls.myCht = Worksheets(1).ChartObjects(1).Chart
End Sub
